perm filename CCIRC.F4[SAB,LCS] blob sn#356906 filedate 1978-05-22 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION IBUF(5000)
C00003 ENDMK
CāŠ—;
	DIMENSION IBUF(5000)
	COMMON/FAC/JFAC,KFAC
CC	ACCEPT 2,JFAC,KFAC
	JFAC=30
	KFAC=30
	CALL PLOTS(IBUF,5000,1)
	CALL PLOT(15.,14.75,-3)
	DO 6 I=1,12
CC	XC=0.0
	XC=RAN(1)*10.
	R=RAN(1)*10.
	YC=RAN(1)*10.
	CALL CIRCL2(R,XC,YC)
	CALL DPYOUT(1)
	PAUSE
 6	CONTINUE
	CALL PLOT(0.,-30.,-3)
	CALL PLOT(0.,0.,999)
	STOP
	END